-61- 



Appendix 3 

CALCULATION PROCESS 
5 /* 

* Channel communicating object positions 
*/ chap unsigned 1 7 position; 

/* 

10 * Channel communicating segment information 
*/ 

chanout unsigned 9 segment; 
/* 

15 * Channel communicating button information 
*/ 

chanin unsigned 2 buttons; 
/* 

20 * Overall par 
*/ par 

/* 

* Mass motion 
25 */ 

/* 

* Positions of each mass, 9+8 fixed point 
*/ 

30 unsigned 1 7 pO, pi, p2, p3, p4, p5, p6, p7; 

/* 
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* Velocity of each mass, 9+8 fixed point 
*/ 

int 17 vl, v2, v3, v4, v5, v6, v7; ' 
/* 

5 * Accelerations of each mass, 9+8 fixed point 

*/ 

int 17 al, a2, a3, a4, a5, a6, a7; 
/* 

* Sutton status 
10 */ 

unsigned 2 button status; 
/* 

t S * Initial setup of positions 

m */ 

J! -T- 

= • s 

\j 15 p0 = 65536; 

f3 pi = 65536; 

i± p2 = 65536; 

! : p3 = 65536; 

Q p4 = 65536; 

[if! 20 p5 = 65536; 

O p6 = 65536 

13 p7 =65536 



25 /* 

* Forever 
*/ 

while (1) 
{ 

30 

/* 



EMB1P004 



-63- 



10 



15 



* Send successive positions down position channel 
*/ 



send(position, pO); 
send(position, pi); 
send(position, pi); 
send(position, p2); 
send(position, p2); 
send(position, p3); 
send (position, p3); 



send(posi 
send(pos 
send(pos 
send(pos 
send(pos 
send(pos 
send(pos 



tion, p4); 
tion, p4); 
tion, p5); 
tion, p5); 
tion, p6); 
tion, p6); 
tion, p7); 



20 



25 



/* 



* Update positions according to velocities 
*/ 



pi +_ (unsigned 1 7)vl; 
p2 +_ (unsigned 17)v2 
p3 +_ (unsigned 17)v3 
p4 +_ (unsigned 17)v4 
p5 +_ (unsigned 17)v5 
p6 +_ (unsigned 17)v6: 
p7 +_ (unsigned 17)v7: 



30 



/* 

* Update velocities according to accelerations 
*/ 



EMB1P004 



vl += al - (vl » 6); 
v2 += a2 - (v2 » 6) ; 
v3 += a3 - (v3 » 6); 
v4 += a4 - (v4 » 6); 
v5 += a5 - (v5' » 6); 
v6 += a6 - (v6 » 6); 
v7 += a7 - (v7 » 6); 



* Set accelerations according to relative positions 
*/ 

al = (int 17)(((p2 » 8) - (pi » 8)) + ((pO » 8) - (pi » 8))); 
a2 = (int 17)(((p3 » 8) - (p2 » 8)) + ((pi » 8) - (p2 » 8))): 
a3 = (int 17)!!(p4 » 8) - (p3 » 8)) + ((p2 » 8) - !p3 » 8))); 
a4 = (int 1 7)(((p5 » 8) - (p4 » 8)) + ((p3 » 8) - (p4 » e> >; 
a5 = (int 17)((!p6 » 8) - (p5 » 8)) + ((p4 » 8) - (p5 » 8))); 
a6 = (int 1 7)(((p7 » 8) - (p6 » 8)) + ((p5 » 8) - (p6 » e > ) ; 
a7 = (int 1 7)((p6 » 8) - (p7 » 8)); 

/* 

* Get button information 
*/ 

receive(buttons, button status); 



* Fix top point according to buttons 
*/ if (button status & 1) 

p0 = 65536- 16384; 
) 

else if (button status & 2) 
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( 

pO = 65536 + 16384; 

else 

pO = 65536; 

} 

) 

/* 

* nine drawing 
*/ 

( 

/* 

* Positions of previous and next massess positions 
*/ 

unsigned 17 prev_.pos, next pos, curr pos; 
/* 

* Which line of interpolation 
*/ 

unsigned char line; 
/* 

* Forever 
*/ 

while (1) 
( 

/* 

* Receive previous mass position 
*/ 

receive (position, prev posy; 

curr pos = prev pos; 

/* 
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* Read next mass position 
*/ 

receive(position, next posy; 
/* 

5 * Do 64 lines of interpolation 

*/ 

for (line = 0; line != 64; line++) 
( 

/* 

10 * Send start position of segment 

*/ 

send(segment, curr pos » 8); /**width adjustment:17 along 

channel of width 9 so takes bottom 
9 bits*/ 

15 

/* 

* Move by appropriate amount (1/64 total change) 
*/ 

curr pos +_ (unsigned 1 7)(((int 1 7)next pos - 
20 (int 17)prev pos) » 6); 

/* 

* Send end position of segment 
*/ 

send(segment, curr pos » 8): 

25 ) 
) 



30 
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DISPLAY PROCESS 

/* standard includes */ 

#include "hammond.h" 
5 #include "syncgen.h" 

include "stdlib.h" 
#include "parallel.h" 

/* 

10 * Segment information channel */ chap segment; 
/* 

* Button information channel */ 
chan buttons: 

15 

/ 

* Include dash generated stuff */ 
#include "handelc.h" 

20 /* 

* Main program */ 
void main() ( 

/ 

* Scan positions 
25 */ unsigned sx, sy; 

/ 

* Vdeo output register 
*/ 

30 unsigned 1 video; 
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* Video output bus 



*/ 



5 interface bus out() video out(Visible(sx, sy) ? 

(video ? (unsigned 12)Oxfff : 0) 0) with video spec; 

#ifhdef SIMULATE 
/* 

1 0 * Left button input bus 
*/ 

interface bus in (unsigned 1) button leftQ 



with button white spec; 



15 



/* 



* Right button input bus 



*/ 



interface bus in(unsigned 1) button right() 
with buttonblack spec; 



20 



#endif 



/* 



Overall par 



25 



*/ par { 



* VGA sync generator 



*/ 



SyncGen(sx, sy, hsync pin, vsync pin); 



30 
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Dash generated hardware 

*/ 

hardware(); 
/* 

* Run-length decoder 
*/ 

{ 

/* 

* Segment start and end positions 
*/ 

unsigned start, end; 
/* 

* Forever 
*/ 

while (1) 
{ 

while (sy != 448) 
/* 

* Read segment information 
*/ 

segment ? start; 
segment ? end; 
/* 

* Get in the right order 
*/ 

if (start > end) 
{ 

par 

{ 

end = start; 
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start = end;. 

) 

/* 

* Make at least 1 pixel visible 
*/ 

if (start = end) 

end++; 

/* 

♦Wait 

*/ 

while (sx != 0) 
delay; 

/* 

* Draw a scanline worth 
*/ 

while (sx != 512) 

if ((sx <- 9) >= start && (sx <- 9) < end) 

video = 1 ; 
else 
video = 0; 

) 

/* 

* Communicate button status 
*/ 

#ifdef SIMULATE 

buttons ! 1; 



EMB1P004 



4 

#else 

buttons ! button left.in @ button right. 

#endif 

/* 
*Wait 
*/ 

while (sy != 0) 
delay; 
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